home *** CD-ROM | disk | FTP | other *** search
- REM $INCLUDE: 'fastgraf.bi'
-
- DEFINT A-Z
-
- DIM Bitmap1 AS STRING*32
- DIM Bitmap2 AS STRING*32
-
- NewMode = FGbestmode(320,200,1)
- IF NewMode < 0 OR NewMode = 12 THEN
- PRINT "This program requires a 320 x 200 color graphics mode."
- STOP
- END IF
-
- OldMode = FGgetmode
- FGsetmode NewMode
-
- FGsetcolor 7
- FGrect 0, 31, 0, 7
- FGsetcolor 9
- FGtext "text", 4
- FGwaitkey
-
- FGmove 0, 7
- FGsetcolor 7
- FGgetmap Bitmap1, 4, 8
- FGsetcolor 9
- FGgetmap Bitmap2, 4, 8
-
- FGmove 4, 15
- FGsetcolor 7
- FGdrawmap Bitmap1, 4, 8
- FGsetcolor 9
- FGdrawmap Bitmap2, 4, 8
- FGwaitkey
-
- FGsetmode OldMode
- FGreset
-
- END